home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
885b
|
40 lines
100 REM PRIORITAETEN EINES SPRITES
110 REM
120 REM SPRITEDATEN IN BLOCK 128 LADEN
130 REM
140 FOR N=8192 TO 8254:READ Q:POKE N,Q:NEXT
150 DATA 0,160,0,2,168,0,2,145,64
160 DATA 2,85,64,2,85,0,0,84,0
170 DATA 0,208,0,0,240,0,1,124,0
180 DATA 5,255,0,23,255,0,23,255,64
190 DATA 5,255,80,1,252,80,0,168,0
200 DATA 0,170,0,2,250,128,10,194,128
210 DATA 91,2,128,92,6,128,21,69,84
220 REM *****************************
230 REM PRIORITAETEN SETZEN
240 REM
250 REM VORBEREITUNGEN
260 REM
270 REM FARBEN
280 POKE53280,5:POKE53281,0:POKE53285,8
290 POKE53286,11:POKE53287,7
300 REM
310 POKE53276,1:REM SPRITE 0 MULTICOLOR
320 POKE53277,0:REM VERGROESSERUNG LOESCHEN
330 POKE53248,160:POKE53249,120:REM ANFANGSPOSITION
340 GOSUB420:REM GITTER ZEICHNEN
350 POKE53269,1:REM SPRITE 0 AN
360 GETT$:IFT$=""THEN360
370 IFPEEK(53275)=0THENPOKE53275,1:GOTO360
380 POKE53275,0:GOTO360
390 REM
400 REM GITTER ZEICHNEN
410 REM
420 PRINT"[147]";
430 PRINTTAB(15)" [146]"
440 FORW=1TO4
450 PRINTTAB(15);"[194][194][194][194][194][194]"
460 NEXTW
470 PRINTTAB(15);" [146]"
480 RETURN